.DO External 

.LSTON 

. Page 

> Module; Spare 1 { a continuation of Spare } 

> FUNCTION SrchSpTabK. Logical Block : 3 BVTES { IrC.E ) 

> BlockType : 3 BITS { ?r8/blts 3: 1 } ) : 

> PhysicalBlock : 3 BVTES { !rC:E > 

> Status : BVTE { !rO > 

> ElementPtr : BYTE { \r^ } 

> FUNCTION GetNewSpareC B I ockNumber : 3 BVTES { !rC:E > ) : BVTE { IrO ) 

> PROCEDURE flddSpare< BlockType : 3 BITS { !r8/bits 3: 1 > 

> SpareType : BIT { !r8/bit 4 > 

> Location : BVTE { IrF } 

> Logic-alBlock : 3 BVTES { !rC:E } 

> ) 

> PROCEDURE De!eteSpare< Location : BVTE { !rF > 

> LogicalBlock : 3 BVTES { !rC:E > 



> > > > > >>>>>>>>>>>>>>>>>> > >>>>>>>> ;• > 

.LSTOFF 

.FIN 

.00 External 

.LSTON 

.Page 
>>:>>>>>>.v >>>>>>>>>>>>>> >>>>>>>> 
> 

> Function: SrchSpTabI { Search Spare Table ) 
> 

> This function is responsible for checking to see if the 

> block number that is passed into it is currently in the 

> spare table. If the block is found to be in the spare table 

> then the physical block number of the spare block is passed 

> back to the caller^ as uiell as the PTR to the location of 

> spared block's element within the spare table. In any case, 

> a byte of status is always passed back to the caller describing 

> the state of the logical block within the spare table. 

> Inputs: 

> LoqicalBlockNumber: 3 BVTES { !rC, IrD, IrE > 

> ElementType : BVTE < IrF > 
> 

> Outputs : 
SrchSpTabI : BOOLEAN { zero flag set if not found in table > 

3 BVTES { IrC, IrD, IrE > 
1 BS'TE { IrO > 
1 BVTE { \ri } 



> PhysicalBlockNumber 

> Status 

> ElementPtr 
> 

> Local Uar fables: 

> HeadPtr 

> Ptr 

> Found 
> 

> fl I gor i thffi : 
> 

> BEGIN 

> CASE DIskCapacity OF 



f 



1 BVTE { IrO, offset; !!r8. actual Ptr } 
1 BVTE { Ir? ) 



10NB: k 
20MB: k 
40MB: k 



= 256; m := 255 
= 128; m := 512 
=64; m := 1024 



HeadPtr := 6et_HeadPtr 
IF HeadPtr.Nil 
THEN Phys i ca I B I ockNumber := Log i ca I B I ockNuinber + 

Log i cci I B I ockNumber DIU k 
ELSE 

Ptr := HeadPtr. Ptr 

Ptr := Ptr * 4 { ca!c offset into spare table ) 
Done := False 
Found := False 
WHILE NOT< Done > DO 
IF C PtrMJsed > RND < Ptr^ Useable > fiND 
< Ptr*. Type = ElementType > AMD 
i Ptr ".Token = Loq i ca I B I ockNurober /b i ts 0:Q 



THEN 



ELSE 



Phys i ca I B ! ock := < Ptr '".Location ) * m 
Done := True 
Found := True 



;> 


Ptr := < Ptr" .Ptr : 


^ .* 4 


;> 


IF Ptr". Mil 




;> 


THEN Done := True 




;> Status := Ptr" 


.Status 




;> EfementPtr := 


Ptr 




;> IF HOT a Found 


> THEN SrchSpTabl e 


= Fa 1 se 


;> EMD 

- "s 






;.^ >>>>>>>>>> >>>>>>>>>>> 


>>>>>>>>> 




.LSTOFF 






.FIN 






.DO 


Internal 




.LSTOr^ 






. Page 






.FIN 






SrchSpTabl : 






Call 


6et_HeadPtr 




Jr 


2,NotlnTabl 





SrchLp: 



Clr 

Ld 
Call 



!r-7 



ScrReql. !rO 
Get_Ptr' 



j Found := False 
;save current ptr 



Lde !r1,?!!r2 

Ld ScrRegO.Irl 

Tm !r1,#Used 

Jr Z^SrchLpElse 

Tm 1 r 1 , *Useab I e 

Jr Z,SrchLpElse 

Ld I rO, Data-Type 

Tm IrlJrO 

Jr Z^SrchLpElse 

Incw I !r2 

Lde !r1,g!!r2 

find Ir1,«$03 

Ld IrO, !rD 

find Ir0,«03 

Cp IrOJrl 

Jr Nz .. SrchLpE I se 

I ricm I ! r2 

Lde !rO,§Hr2 

Cp JrOJrE 



;get element status 
■fSQKfe element. status 
;IF Used 

: fiND Useable 



;fiND Type is correct 



AND C Token = 



LogicalBlockNufflber/bi ts 0:Q ) 



; point to bits 0:7 of token 



Jr 



MZjSrchLpElse 



Src-h_Spare: 



Tm ScrRegO^ *Spare ; check i f BadB I ock 

Jr Mz J, Srch JSpar e 

Or !r7^*Foijnd 

Jr Srch_Sp1 

Ld !rO,ScrReg1 

! nc ! rO ; number spare b 1 ocks 1 . . 76 



;****** INLINE: riulRO_m ***** 
CIr IrE 



Result := !rO * 256 



SrchLpE I se : 



NotlnTabl 
Srch_Sp t : 



Ld 
CIr 

.DO 

RIc 

RIc 

RIc 

.FIN 

.DO 

RIc 

RIc 

RIc 

.FIN 

Or 
Jr 

Tflj 
Jr 

Ld 
Call 
Rdd 
Rdc 
Lde 
Jr 

CIr 

Ld 



!rD, IrO 
IrC 



W_20I1B + M_40nB 

IrE ; Result := Result * 2 

IrD 

IrC 



l4_40riB 
IrE 
IrD 
IrC 



;Result := Result * 2 



lr7..*Found 
SrchOone 

ScrRegO,»Nil 
Hz. NotlnTabl 



;test if element.Ptr = Hi I 



!rO,ScrReg1 ;get address to current element 

6et_Ptr 

!r3,»3 ; point to next Ptr 

Ir2.«0 

!rO,e! !r2 

SrchLp 



!r7 
ScrRegOj IrD 



***** INLINE: Diu3_k ***** 

Ld Ir2, IrD 

Ld IrlJrC 

CIr IrO 



D i v3 Jk_Lp : 



.DO 

Ld 

-FIN 

-DO 

Ld 

.FIN 

.00 

Ld 

Ric 

Blc 

RIc 

RIc 

Djnz 



M_20MB 
lrF,1 

M_40MB 
lrF.2 



; return Not_Found status 

;3hift right 1 byte 

;shift left once for DIU 128 
; Shi ft left twice for DIU 54 



W_20riB + W_40NB 

!r3, IrE ;shift left 1 bit 

!r3 ;inoMe !r3 bit 7 into carry flag 

« r2 ; then sh i f t all 3 bytes 

Irl 

frO 

!rF,Diy3_kJ_p 



.Fm 




Add 


!rE, !r2 ;PhysicalBlock 


fide 


IrD, !r1 : 


fldc 


!rC, !rO 


Ld 


! rO, ! r-D ; sa\fe ro 1 1 over byte 


.LSTOFF 




.DO 


Internal 


-LSTOM 




.FIN 




.DO 


«_10NB 


Cp 


IrO/ScrRegD ; check for roll oyer 


.LSTOFF 




.FIN 




.00 


W_20MB 


find 


lrO,«$FE .mask off MOD 512 bits 


find 


ScrRegD,«$FE 


Cp 


IrO.ScrRegD ; check for rollover 


.LSTOFF 




.Fin 




.DO 


U_20MB 


find 


irO,«-$FC .mask off 1100 512 bits 


find 


ScrRegD,*$FC 


Cp 


!rOj,ScrRegD ; check for rollover 


.LSTOFF 




.FIN 




.DO 


Internal 



LogicalBlock DIU k 



.DO 


Internal 




.LSTON 






.FIN 






Jr 


Z^SrchDone 




fidd 


! rE . * 1 ; o ther w i se accoun t for ro 1 1 over 


fide 


!rD,«0 




fide 


lrC,«0 




rchOone : Or 


?r7, Ir? ;set 


status 


Ld 


IrO.ScrRegO 


; return status 


Ld 


Irl.ScrRegl 


; return ptr to element 


Jp 


Bank_Ret 




.LSTOFF 






.00 


External 




.LSTON 






.Page 






>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 





Function: GetNewSpare 

This function accepts either a physical block number or 
a logical block number and returns a one byte index into 
the Spare Table's bit map describing the location of the 
block that can be used as a spare. 

! nputs : 

BlockNufflber : 3 BVTES { IrCiE ) 

Outputs : 

GetNewSpare : BYTE { IrO } 

Global Uariables Used: 
SpareB i tNap 

Local Uariables: 



Bit 


ScrRegO 


Tempi 


ScrRegl 


Tefflp2 


ScrReg2 


NoHis 


ScrReg3/blt 7 


NoLos 


ScrReg3/bit 5 


filgori thm: 





> BEGIN 

> Bit := SrchSpTabl Diy k { get physical blocknumber divided by 

> the number of blocks between spares ) 

> IF ( SpareBitnapl Bit 1=0 > 

> THEN GetNeuiSpare := Bit 

> ELSE 

> NoHis := False 

> NoLos := False 

> Tempt ■= Bit 

> WHILE NOTC NoHis ) fiND < SpareB i tNap [ Tempi ] = ^ > DO 

> Tempi := Tempi + 1 

> IF ( Tempi >= 75 > THEN NoHis := True 

> Temp2 := Bit 

> WHILE NOT< NoLos > AND < SpareB i tNap [ Temp2 ] = 1 DO 

> Temp2 ;= Temp2 - 1 

> IF < Temp2 < > THEN NoLos := True 

> IF < NoHis AND NoLos > 

> THEN RBORT 

> ELSE 

> IF NoHis 

> THEN GetNeuiSpare := Temp2 

> ELSE 

> IF ( Tempi - Bit ) > ( Bit - Temp2 ) 

> THEN GetNewSpare := Tefflp2 

> ELSE GetNewSpare := Tempi 
END 



; > > > > > > > > > > > : 


.LSTQFF 
.FIN 


?>>> > > > > > > > > 




.DO 


Internal 




.LSTON 






.Page 






.FIN 




GetNewSpare: 








Call 


ExtPush-Uector ;saue state 




.DO 


W_10NB 




Ld 


!r4j,!rD ;Div3J<.^ store result in !r4 




.FIN 






Ld 


IrD, !r4 




Ld 


lrC,»TestBitriap 




Call 


TSC_BitNap ; IF BitNapE Bit 1=0 ... 




Ld 


!r0^!r4 ; assume Bit is unused 




Jr 


Z,6ns-£nd ;Jump if THEN 




Ld 


!r5, !r4 ;ELSE .. 




CIr 


ir? 


Gns_Lp1: 


Ld 


lrDj,!r5 ; test for bit map location = 




Ld 


!rC.«TestBitl1ap 




Call 


TSClBithap 




Jr 


Z,6ns_Lp1End 



Inc IrS ;bump Tempi 

Cp !r5>76 

vjr Lt.GnsJLpI 

Or ?r7,»$80 jMoHls := True 

Gns_Lp1End: Ld !r6, Ir4 

GnsJ_p2: Ld !rD^ !r6 ; test for bit map location = 

Ld !rC,*TestBltnap 

Call TSC_Bitriap 

Jr Z,6ns_Lp2End 

Dec !r5 

Jr Gt,Gns_Lp2 

Or !r7,«$40 ;NoLos := True 

6ns_Lp2End: Tcm lr7,»$C0 ; IF NoHis AND NoLos . . 

Jr Nz,Gns_Chk_Hf 

Ld !rO,«1 ;byte 1 

Ld lr1,«SprBlk_>iard 

Caf ! SetStatus 

Cal I Abort 



GnsjDhi<:._Hi : 



Gns_£rfd : 



Ld 

TlTl 

Jr 

Ld 
Tiij 
Jr 

Ld 

Sub 

Sub 

Ld 
Cp 
Jr 

Ld 

Push 
Call 
Pop 
Jp 



!rO, Ir6 
Ir7,«$80 
!iz, GnsJEnd 



; assume NoHis 
: test for MoHis 



IrO. Ir5 ; assume NoLos 
lr7.«$40;test for NoLos 
Hz,Gns_End 

IrlJ.rS 

!r1.!r4 ; otherwise firid out which is closer 

Ir4jr5 

! rO . I r6 ; assume Temp2 i s cl oser 

lri;ir4 

Uge,Gns_End 

I rO J, ! r5 ; o therw i se Temp 1 i s c I oser 

frO 

ExtPop-Uector 
!rO 
Bank_Ret 



LSTOFF 

.DO External 
.LSTON 
-Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



Procedure: flddSpare •( add an element to the spare table ) 

This function is responsible for adding on element to the spare 
tab I e . It accepts a 1 byte ya I ue descr i b i ng the I oca t i on m i th i n 
the spare tab fa { it is assumed that the caller has already used 
OetHewSpare > as well as the LoglcalBlockMumber and whether the 
block being added to the table is a Spare block or a Bad Block. 



Inputs: 



B I ockType 
SpareType 
Location 



3 BITS { IrS/bits 3:1 ) 
BOOLEflM { !r8/bit 4 > 
BVTE { !rF ) 



; > 

• ■> 

■ \ 

• •> 
I 

;> 

;> 
;> 

;> 

;> 

: > 



: > 



> 


Ptr- 


> 


Ptr" 


> 


Ptr" 


> 


Ptr* 



LogicQlBlockMumber: 3 BVTES { !rC, !rD, !rE > 

Outputs: { none ) 

Local Uariables: 

HeadPtr : 1 BYTE { !rO > 

Ptr : 1 BVTE { !rO, offset; ! !r8, actual Ptr } 

Global Uariables Changed: 
SpareCount 

fl I gor I thffi : 

BEGIN 
HeadPtr := Get_HeadPtr< Log i ca I B I ockNumber > 
IF HeadPtr. Nil 
THEN 

HeadPtr. Nil := False 
HeadPtr. Ptr := Location 

SegPtrRrraqC LogicalBlockNufflber/bi ts 10:15 1 := HeadPtr 
ELSE 

Ptr := HeadPtr. Ptr 
Ptr := Get_EoList< Ptr > 
Ptr-\Hil := Falsa 
Ptr ".Ptr := Location 
= Get_Ptr< Location > 
Nil : = True 
Used := True 
Useable := True 
Ptr\ Spare := Spare 
Ptr ".Type := SpareType 

P tr " . Token : = Log i ca I B I ockNumber /b its 0:9 

TCS_Bitl1ap< Set^ Location > < set the bit snap location for the add > 
IF < SpareType = Spare > 
THEN SpareCount := SpareCount + 1 
ELSE BadCount := BadCount + 1 
END 








.LSTOFF 








.FIN 








.DO 


Internal 






LSTOr^ 








.Page 








.FIN 






flddSpare: 










Call 


6et_HeadPtr 


;IF HeadPtr. Nil ... 




Jr 


Nz,flDS_Else1 






find 


!rO.«$FF-Hil 


;THEN HeadPt.Nil := Falsi 




Or 


!rO, IrF 


HeadPtr. Ptr := Loo 




Lde 


i!!r2.lr0 


; create link 




Jr 


flOSJUpDate 




RDS_Else1: 


Call 


6et_£oList 


; search 'til &c\^ of 1 ist 




find 


?rt,*$FF-Ni! 


;Ptr".NIl := False 




Lde 


§!!r2,lr1 


; update table 




Add 


!r3,»3 


jget Ptr*. Ptr 




fide 


lr2.«0 






Lde 


§!!r2.!rF 


; create 1 ink 



flDSJUpDate: 






Ld 
Call 

Ld 

Or 

Or 

Lde 

I new 

Ld 

find 

Lde 

Incuj 

Lde 

Ld 

Ld 

Call 



IrOJrF 
Get_Ptr 



;get structure ptr 

; create a real ptr out of it 



! rO, »ri j I +Used+Useab I e 

! rO , 1 rS ; merge Spare /Bad B I ock /Type I n f o 

!rO,Data_Type 

§[lr2, !rO 

1 ! r2 ; po i n t to el eroen t . H i Token 

IrO^IrD jget Hi Token 

!r0,#$03 

§!!r2, !rO 

! ! r2 ; po i n t to e I emen t . LoToken 

e 1 1 r2 . ! rE ; s tore LoToken 



!rC,«SetBitl1ap 
IrD, frF 
TSC_Bitriap 
Bank_Ret 



; update the bit map 



.LSTOFF 

-DO External 

.LSTOH 

.Page 



>>>>>>>>>>>>>>>>>>> > : 



Procedure: DeleteSpare { add an element to the spare table } 

This function is responsible for deleting an element from the spare 
table. It accepts a 1 byte value describing the location uiith in 
the spare table { it is assumed that the caller has already used 
GetNewSpare } as well qs the LogicalBlockNumber. 



Inputs: 



Location : BVTE { IrF } 
LogicalBlockNumber: 3 BVTES { frC, IrD, IrE > 



Outputs: { rione ) 

Local Variables: 

Ptr 1\ Status : BVTE { ScrRegF > 

Global Variables Changed: 
SpareCount 

fllgoritNri: 

BEGIN 
Location := SrchSpTabK Load-Logical > 
IF NOT< SrchSpTabI .Found > THEN Abort 
IF < Get_Head< LogicalBlockNumber >.Ptr = Location > 
THEN Head.Ni I = True 
ELSE 

Ptrt := Get_Ptr< Location '} 
IF (. Ptr1\Nil = True > 
THEN Ptr< PreviousEleffient >''.Nil = True 
ELSE Ptr< PreMiousElement >\Ptr = Ptr T. Ptr 
Zero Out the Deleted Element 

TCS_£itl1ap< Clear, Location ) { free up the bit map location } 
END 



.LSTOFF 
.FIN 





.DO 


Internal 




.LSTOH 






-Page 






.FIH 




DeieteSpare: 








CaW 


LoadJ_og i ca 1 




Cal i 


SrchSpTabI 




Ld 


!rF, !r1 




Jr 


Nz.ChkJHdPtr 



Call 



Abort 



Chk_HdPtr: 


Call 


Load_Log i ca 1 






Call 


Get_HeadPtr 


;iF < 6et_HeadPtr... ) 




Ld 


ScrRegE^ IrO 






Ld 


irOJrF 






Call 


GetlPtr 






Lde 


!r0.&nr2 






Tm 


!rO,»rill 






Jr 


Z.ChkJChain 






Cp 


ScrRegE, IrF 






Jr 


N2,Chk_Chain 


;ELSE ... 




Call 


Get_HeadPtr 






Ld 


!rO,«riil 


;THEN Head. Hi! := True 




Lde 


§!!r2, IrO 






Jr 


ZeroJEIement 




ChkJChaln: 


Ld 


ScrRegF, irO 






Or 


!rO,»Nil 






Lde 


@!lr2,lr0 


; break the chain 




Ld 


IrO.ScrReaE 






Call 


Get FoList 


;get Ptr< Previous > in S 




Ld 


IrO.ScrRegF 


:get original status back 




Tm 


!rO>Hf I 


•IF Ptr1\Hil 




Ld 


!r2^ScrRegO 


;get Ptr< Prey i ous > 




Ld 


lr3,ScrReg1 






Jr 


Z.D Chk FIse 


; ELSE... 




Lde 


!r0.ei!r2 






Or 


!r0,»Hil 






Lde 


gl!r2, irO 






Jr 


Zero^ieroent 




DJ:.hk FIse: 


Cp 


IrF.ScrRegE 






Jr 


Nz.Get-PreMious 






Call 


Get-HeadPtr 






Jr 


Saye_PreM i ous 




Get_Prayious: 


fidd 


!r3,#3 


:get to Ptr< Previous T. 




fide 


!r2,«0 




Save_Prey i ous : 


Push 


!r2 






Push 


lr3 






Ld 


IrOJrF 






Call 


Get_Plr 






Rdd 


!r3,»3 


;get to Ptrr.Ptr 




fide 


Ir2.«0 






Lde 


!r0.§!!r2 





Ptr 



Zaro-Elemsnt: 



Zero_E_Lp : 



pop 
Pop 
Lde 

Ld 
Call 

Ld 
Ld 
Lde 
t new 
Djnz 

Ld 
Ld 

Call 

Jp 



!r;3 
!r2 
§!!r-2, !K 

!rO, !r-F 
Get_Ptr 



;Ptr< Previous >''.Ptr 
;get Ptrl once more 



:= Ptrr.Ptr 



!rO^*$FF ;i nit I ale element 
!r1,*4 ;zero 4 bqtes 
§!!r2, IrO 
! Ir2 

!r1.Zero_E_Lp 

!rC.«ClearBitl1ap 
IrD, !rF 
TSC_Bitriap 
Bank_Ret 



LSTOFF 



